home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / HyperCard / CambridgeMedlineTutor / ccMedTut1 / card_42013.txt < prev    next >
Encoding:
Text File  |  1993-04-19  |  2.6 KB  |  113 lines
  1. -- card: 42013 from stack: in
  2. -- bmap block id: 42367
  3. -- flags: 0000
  4. -- background id: 11419
  5. -- name: 
  6. ----- HyperTalk script -----
  7. --Hidden field - card field id 3
  8.  
  9. --Handlers below are not very elegant, but they work - should be able to put the EnterInField script as part of On ArrowKey handler, under option that goes to next card, but I can't get this to work - does work this way, mapping arrow action to another handler - Chose Enter InField just because it's a handler that won't ever be used for any thing else [in fact, can't be used for most part, because stack is pro tected & user can't get cursor in field]
  10.  
  11. On ArrowKey which
  12.   if which is "up" then EnterInField
  13.   else if which is "right" then beep
  14.   else if which is "left" then beep
  15.   else if which is "down" then beep
  16. End ArrowKey
  17.  
  18. On EnterInField
  19.   global x
  20.   lock screen
  21.   go next
  22.   hide card field "red"
  23.   unlock screen
  24.   wait x
  25.   lock screen
  26.   show card field "red"
  27.   unlock screen with dissolve
  28. End EnterInField
  29.  
  30.  
  31.  
  32. -- part 3 (field)
  33. -- low flags: 00
  34. -- high flags: 2004
  35. -- rect: left=41 top=274 right=297 bottom=480
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 0
  39. -- font id: 3
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: red
  44.  
  45.  
  46. -- part 8 (field)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=142 top=133 right=150 bottom=259
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 0
  53. -- font id: 3
  54. -- text size: 12
  55. -- style flags: 256
  56. -- line height: 16
  57. -- part name: 
  58.  
  59.  
  60. -- part 9 (field)
  61. -- low flags: 00
  62. -- high flags: 0000
  63. -- rect: left=142 top=149 right=166 bottom=259
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 0
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 2048
  70. -- line height: 16
  71. -- part name: 
  72.  
  73.  
  74. -- part 10 (field)
  75. -- low flags: 00
  76. -- high flags: 0000
  77. -- rect: left=142 top=165 right=236 bottom=311
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 0
  81. -- font id: 3
  82. -- text size: 12
  83. -- style flags: 256
  84. -- line height: 16
  85. -- part name: 
  86.  
  87.  
  88. -- part contents for card part 3
  89. ----- text -----
  90. ... and now hit the up arrow key to move the highlight back to Menus...
  91.  
  92. -- part contents for card part 8
  93. ----- text -----
  94. Menus
  95.  
  96. -- part contents for card part 9
  97. ----- text -----
  98. Commands
  99.  
  100. -- part contents for card part 10
  101. ----- text -----
  102. Change configuration
  103. Dos commands
  104. change compact Disc
  105. eXit
  106.  
  107. -- part contents for background part 2
  108. ----- text -----
  109. 88
  110.  
  111. -- part contents for background part 3
  112. ----- text -----
  113. Main Menu